Visual Basic Toolbox

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / btrieve / btrtes / btrtest.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1992-03-15 | 9KB | 256 lines

EmpMst Btrieve Test Program Form1, Frame2 Action AddCommand ChangeCommand Change DeleteCommand Delete ExitCommand Frame3 Data Access FirstCommand First NextCommand PreviousCommand Previous LastCommand Frame4 Select By SelectByNum Employee # SelectByLast Last Name SelectByFirst First Name EmpNum EmpList Label7 Employee # LstNam Label6 Last Name FstNam Label2 First Name SocSec Label1 ZipCod Label4 Zip Code WPhone Label12 Work Phone HPhone Label5 Home Phone Form_Click( POSBLK PBELEMENTS KEYBUFFER FILENAME WBTRVINIT WBTRVSTOP BTRCALLT POSBKL BTRVINIT KeyBuff Command1_Click; StatusG BOPEN4 POSBLOCKj DataBuff+ BufLent KeyBufLen+ KeyNum Text1 Command5_Click Command2_Click BFIRST Command3_Click BNEXT] Command4_Click BGREATER BUFFER/ KEYBUFFLEN BPREVIOUS NAMECODEP Text2o Text2_Change FileText ErrorText Command6_Click Text3_Change FileText_Change Command7_Click_ BSTAT Command8_Click BDELETE> OpenCommand_Click Command10_Click FileList_ClickH FileList{ Valueh DirList_Change3 Path5 DirList PatternText_Change Pattern PatternText @ Form_Loadq ErrorText_Change Command1 Enabled Command2 Command3 Command4 Command8 FALSE KeyNumber PrtNum$ BGET_NEXT BGET_PREV; BGET_GTF BGET_GOER BGET_LT BGET_LOE` BGET_FIRST BGET_LAST KeyNumber_Change SubCommand2_Click Label6_Click DATABUF Caption BINSERT$ Text2_Text} BtrErr DriveList_Change! DriveListC Enable TextDriveListj ChrDirW Text3 OpenCommand) Text3_LostFocus Responseh Click Enter StartUp. PartText PrtTyp ClaCod PrtCla Text4 PlanID9 BUpdateJ Command7{ Command5 EmpNum EmpLst EmpFst ileText9 SelectByLast SelectByFirstP SelectByNum\ SetSelectBy Frame1_DragDrop Source SelectByLast_Click SelectByNum_Click SelectByFirst_Click EmpList_Click EmpList EmpLast Index SetEmpList Sorted @ PaintData artText rtText @ ClearData GotFocus SelectBy KeyBuf BGET_EQUALT KBuff ListIndex SelectByLst AddCommand_Click ChangeCommand_Click DeleteCommand_Click Command9_Click. Command13_Click ExitCommand_ClickA Command12_Clickw Command11_Click AddCommand. ChangeCommandZ DeleteCommand4d @ FirstCommand_Click= @ LastCommand_Click NextCommand_Click PreviousCommand_Click DeleteCommand ExitCommand FirstCommand5 LastCommandm FirstCommand NextCommand PreviousCommand SocSec HirDat Text5 NumExp Text6 HPhone Text4_Change KeBufLen FstNam LstNam WPhone CommandsOff ZipCod SetBuff Form_Load Execute StartUp Routine Open EmpMst.Dat File C:\VB\BtrTest\EmpMsts.Dat" SetSelectBy SelectByNum_Click SelectByFirst_Click SetEmpList Load EmpList Listbox with Employee Data + " #" + DataBuff.EmpNumm + " #" + DataBuff.EmpNum PaintData Paint Screen Data after file I/O ClearData Clear Screen Dataa EmpList_Click Set Select Box Get First by EmpNum MsgBox DataBuff.LstNam + DataBuff.EmpNum, 0 AddCommand_Click Add Action Successful" File Action Message" ChangeCommand_Click Change SuccessFul" File Action Message" ExitCommand_Click Quit App DeleteCommand_Click Are you Sure?" File Action Message" Delete SuccessFul" File Action Message" FirstCommand_Click LastCommand_Click NextCommand_Click PreviousCommand_Click SelectByLast_Click CommandsOff SetBuff Set data buffer to the field values